﻿Public Class frmNuevaClave

#Region "Atributos"

    Dim mtxtNuevaClave As String

    Public WriteOnly Property nuevaClave As String
        Set(value As String)
            mtxtNuevaClave = value
        End Set
    End Property

#End Region


#Region "Métodos"


    Private Sub frmNuevaClave_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.txtNuevaClave.Text = mtxtNuevaClave
    End Sub


    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
        Me.Dispose()
    End Sub


#End Region


End Class